home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G20F / G20_SHIO.Dxr / 00078_Mbutton.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  511 b   |  23 lines
  1. on hilitebutton
  2.   set ch to clickOn()
  3.   set btncn to the memberNum of sprite ch
  4.   set the memberNum of sprite ch to btncn + 1
  5.   updateStage()
  6.   repeat while the stillDown
  7.     nothing()
  8.   end repeat
  9.   set the memberNum of sprite ch to btncn
  10. end
  11.  
  12. on hilitebuttonp
  13.   set ch to clickOn()
  14.   set btncn to the memberNum of sprite ch
  15.   set the memberNum of sprite ch to btncn + 1
  16.   updateStage()
  17.   repeat while the stillDown
  18.     nothing()
  19.   end repeat
  20.   set the memberNum of sprite ch to btncn
  21.   puppetSprite(1, 0)
  22. end
  23.